00100	BEGIN
00200	NEW X,Y,Z,O,FLAG;
00300	
00400	EXPR PRIN(XX); TERPRI PRINC TERPRI XX;
00500	
00600	INP;	PRIN "WHAT FILE DO YOU WANT TO TAKE WORDS FROM?";
00700		IF ATOM ERRSET(EVAL<'INPUT,'FOO,'DSK:,READ()>, T)
00800			THEN PRIN "INPUT FILE DOES NOT EXIST."
00900			ALSO GO INP;
01000	OUTP;	PRIN "WHAT FILE DO YOU WANT TO PUT WORDS INTO?";
01100		IF FLAG←ERRSET(EVAL<'INPUT,'BAZ,'DSK:,O←READ()>,NIL)
01200			THEN PRIN "OUTPUT FILE ALREADY EXISTS.  REPLACE? (Y OR N)"
01300			ALSO FLAG←(READ()≠'Y);
01400		IF FLAG THEN GO OUTP;
01500		EVAL<'OUTPUT,'BAZ,'DSK:,O>;
01600	
01700		PRIN "FOR EACH LINE PRINTED, TYPE EITHER <LINE> OR <ALT> OR <RETURN>";
01800		PRIN " <LINE> MEANS KEEP THE LINE.";
01900		TERPRI PRINC " <ALT> MEANS DISCARD THE LINE.";
01950		TERPRI PRIN " <RETURN> WILL DISCARD THE LINE AND THEN CLOSE THE OUTPUT FILE.";
02000		
02100		DO FLAG←TYI() UNTIL FLAG=10 OR FLAG=125;
     

01700	LOOP;	INC('FOO,NIL);
01800		X←NIL;
01810		IF ATOM ERRSET( DO NIL UNTIL
01820			    BEGIN
01830				Y←TYI();
01840				X←Y CONS X;
01850				IF Y=10 THEN RETURN T;
01860				END        , T )
01870		    THEN GO EOF ELSE X←REVERSE X;
02000		INC(NIL,NIL);
02100		FOR NEW I IN X DO TYO(I);
02125		IF (Z←TYI())=13 THEN INC('FOO,NIL) ALSO INC(NIL,T) ALSO GO STOP;
02200		IF Z=10 THEN
02300		    BEGIN
02400			OUTC('BAZ,NIL);
02500			FOR NEW I IN X DO TYO(I);
02800			OUTC(NIL,NIL);
02850			TYO(13);
02900		    END  
02950			ELSE TERPRI NIL;
02975		TERPRI NIL;
03000		GO LOOP;
03100	
03200	EOF;	PRIN "INPUT LIST EXHAUSTED";
03300	STOP;	PRIN "END OF SELECTION";
03400		OUTC('BAZ,NIL);
03500		OUTC(NIL,T);
03600	
03700	END.